home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / hack / 1 / src / bones.c < prev    next >
Encoding:
C/C++ Source or Header  |  1985-07-26  |  2.4 KB  |  96 lines
  1. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  2. /* hack.bones.c - version 1.0.3 */
  3.  
  4. #include "hack.h"
  5. extern char plname[PL_NSIZ];
  6. extern long somegold();
  7. extern struct monst *makemon();
  8. extern struct permonst pm_ghost;
  9.  
  10. char bones[] = "bones_xx";
  11.  
  12. /* save bones and possessions of a deceased adventurer */
  13. savebones(){
  14. register fd;
  15. register struct obj *otmp;
  16. register struct trap *ttmp;
  17. register struct monst *mtmp;
  18.     if(dlevel <= 0 || dlevel > MAXLEVEL) return;
  19.     if(!rn2(1 + dlevel/2)) return;    /* not so many ghosts on low levels */
  20.     bones[6] = '0' + (dlevel/10);
  21.     bones[7] = '0' + (dlevel%10);
  22.     if((fd = open(bones,0)) >= 0){
  23.         (void) close(fd);
  24.         return;
  25.     }
  26.     /* drop everything; the corpse's possessions are usually cursed */
  27.     otmp = invent;
  28.     while(otmp){
  29.         otmp->ox = u.ux;
  30.         otmp->oy = u.uy;
  31.         otmp->age = 0;        /* very long ago */
  32.         otmp->owornmask = 0;
  33.         if(rn2(5)) otmp->cursed = 1;
  34.         if(!otmp->nobj){
  35.             otmp->nobj = fobj;
  36.             fobj = invent;
  37.             invent = 0;    /* superfluous */
  38.             break;
  39.         }
  40.         otmp = otmp->nobj;
  41.     }
  42.     if(!(mtmp = makemon(PM_GHOST, u.ux, u.uy))) return;
  43.     mtmp->mx = u.ux;
  44.     mtmp->my = u.uy;
  45.     mtmp->msleep = 1;
  46.     (void) strcpy((char *) mtmp->mextra, plname);
  47.     mkgold(somegold() + d(dlevel,30), u.ux, u.uy);
  48.     for(mtmp = fmon; mtmp; mtmp = mtmp->nmon){
  49.         mtmp->m_id = 0;
  50.         if(mtmp->mtame) {
  51.             mtmp->mtame = 0;
  52.             mtmp->mpeaceful = 0;
  53.         }
  54.         mtmp->mlstmv = 0;
  55.         if(mtmp->mdispl) unpmon(mtmp);
  56.     }
  57.     for(ttmp = ftrap; ttmp; ttmp = ttmp->ntrap)
  58.         ttmp->tseen = 0;
  59.     for(otmp = fobj; otmp; otmp = otmp->nobj) {
  60.         otmp->o_id = 0;
  61.          /* otmp->o_cnt_id = 0; - superfluous */
  62.         otmp->onamelth = 0;
  63.         otmp->known = 0;
  64.         otmp->invlet = 0;
  65.         if(otmp->olet == AMULET_SYM && !otmp->spe) {
  66.             otmp->spe = -1;      /* no longer the actual amulet */
  67.             otmp->cursed = 1;    /* flag as gotten from a ghost */
  68.         }
  69.     }
  70.     if((fd = creat(bones, FMASK)) < 0) return;
  71.     savelev(fd,dlevel);
  72.     (void) close(fd);
  73. }
  74.  
  75. getbones(){
  76. register fd,x,y,ok;
  77.     if(rn2(3)) return(0);    /* only once in three times do we find bones */
  78.     bones[6] = '0' + dlevel/10;
  79.     bones[7] = '0' + dlevel%10;
  80.     if((fd = open(bones, 0)) < 0) return(0);
  81.     if((ok = uptodate(fd)) != 0){
  82.         getlev(fd, 0, dlevel);
  83.         for(x = 0; x < COLNO; x++) for(y = 0; y < ROWNO; y++)
  84.             levl[x][y].seen = levl[x][y].new = 0;
  85.     }
  86.     (void) close(fd);
  87. #ifdef WIZARD
  88.     if(!wizard)    /* duvel!frans: don't remove bones while debugging */
  89. #endif WiZARD
  90.         if(unlink(bones) < 0){
  91.         pline("Cannot unlink %s .", bones);
  92.         return(0);
  93.     }
  94.     return(ok);
  95. }
  96.